home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_94-08_1994_-_de_Side_B.d64
/
f.c. 2-basicdemo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
6KB
|
205 lines
0 print"[147][211]choener, besser, groesser:
1 [153]"ascatnstr$val(NULL) len(NULL)(NULL)(NULL)vallen(NULL)right$(NULL)(NULL) - 2 - ":[153]"von (NULL)ascha (NULL)eichert
2 print"[194]itte warten [211]ie, es wird nachgeladen.":poke53280,6:poke53281,14
9 rem fader collection 2 nachladen:
10 if a=0 then a=1:load"fader collect. 2",8,1
20 rem demobild nachladen:
30 sys34583,"?pic f.c. 2 bild"
40 rem
50 rem fader collection 2 demo
70 rem written and copyright 1994 by
80 rem sascha reichert
90 rem
100 rem demohauptprogramm:
110 gosub 1000 :rem ersten anleitungs-
120 rem text ausgeben.
130 gosub 9000 :rem demo aller effekte
140 rem aufrufen.
150 gosub 2000 :rem der zweite text.
160 gosub 5000 :rem einige effekte
170 rem mit anderen
180 rem parametern zeigen.
190 gosub 9300 :rem alle effekte mit
200 rem sound fx und
210 rem unterschiedlichen
220 rem farben
230 gosub 9500 :rem ende text ausgeben.
900 end
1000 print"[147][144][198]ader [195]ollection 2 [[196][197][205][207]]
1005 [153]" von (NULL)ascha (NULL)eichert
1010 print"----------------------------------------
1020 [153]"asc.len. 2 ist ein (NULL)aket von valffekten
1030 print"zum [197]in- und [193]usblenden von
1040 [153]"(NULL)ulticolourbitmaps im chr$rafikformat des
1050 print"[203][207][193][204][193]-[208]ainters.
1060 [153]"atnber auch chr$rafiken von anderen
1070 print"[205]alprogrammen, die das [203][207][193][204][193]-[198]ormat
1080 [153]"benutzen, koennen ein/ausgeblendet
1090 print"werden."
1095 gosub 9900
1100 print"[193]mica [208]aint kann z.[194]. auch im [203][207][193][204][193]-
1110 [153]"ascormat abspeichern, wobei uebrigens zur
1120 print"[214]erwendung mit [198].[195]. 2 keine [203]orrektur
1130 [153]"der (NULL)tartadresse auf $6000 noetig ist,
1140 print"[198].[195]. 2 besitzt eine eigene [204]aderoutine
1150 [153]"welche zur richtigen atndresse laedt.
1160 gosub 9900
1200 print"[196]ie [194]ilder werden nicht wie ueblich
1210 [153]"in eine leere peekitmap kopiert, was
1220 print"eine [208]latzverschwendung darstellt
1225 [153]"(wie uebrigens bei der ersten
1226 print"'[198][193][196][197][210] [195][207][204][204][197][195][212][201][207][206]'),
1230 [153]"bei asc.len. 2 werden (NULL)prites ueber die
1240 print"[194]itmap gelegt. [196]iese [211]prites werden
1250 [153]"geloescht und beschrieben, wodurch der
1260 print"[197]indruck der [213]eberblendung entsteht.
1270 [141] 9900
1300 [153]"right$m folgenden werden alle 27 valffekte
1310 print"nacheinander aufgerufen, mit der
1320 [153]"chr$eschwindigkeit 1 und der (NULL)riginalfarbe
1330 print"des [196]emobildes, sowie [207][200][206][197] [211]ound[198][216],
1340 [153]"ueber die asc.len. 2 auch verfuegt.
1350 gosub 9900
1360 return
2000 print"[144][147][213]ebrigens:
2010 [153]"asc.len. 2 kann ein peekild aber auch mit
2020 print"jeder beliebigen [198]arbe einblenden,
2030 [153]"und mit einer anderen wieder ausblenden.
2040 gosub 9900
2100 print"[213][206][196] [206][213][206]: [196]er [193]ufruf von [198].[195]. 2
2110 [153]"(aus right$hren eigenen (NULL)rogrammen heraus)
2120 print"[193]ufruf in [194][193][211][201][195]:
2130 [153]"(NULL)uerst muss asc.len. 2 ins (NULL)am geholt
2140 print"werden, und zwar wie jedes
2150 [153]"atnssemblerprogramm:
2160 print"erste [218]eile [201]hres [194][193][211][201][195]programms:
2170 [153]"10 right$asc atn=0 (NULL)left$val(NULL) atn=1 : (NULL)(NULL)atnstr$"[199](34)"asc.len. 2"[199](34)",8,1"
2180 [141] 9900
2200 [153]"str$ann muss natuerlich noch die peekitmap
2210 print"geladen werden, wofuer [198].[195]. 2 einen
2220 [153]"besonderen peekefehl zur (NULL)erfuegung stellt:
2230 print"[211][217][211] 34583,"chr$(34)"<[206]ame des [203][207][193][204][193]-[208][201][195][211]>"chr$(34)
2240 print"[205]an kann das [194]ild natuerlich wie
2250 [153]"asc.len. 2 laden, aber wenn (NULL)ie spaeter in
2260 print"[201]hrem [208]rogramm noch ein anderes [194]ild
2270 [153]"benutzen wollen, geht dies nur
2280 print"mit dem [211][217][211] 34583-[194]efehl !!!"
2290 gosub 9900
2300 print"[213]m [198].[195]. 2 nun aufzurufen, ist die
2310 [153]"(NULL)ebergabe einiger (NULL)arameter noetig.
2320 print"[196]ie [213]ebergabe ist vor jedem [197][201][206]blenden
2330 [153]"neu vorzunehmen,
2340 print"wie folgt:
2350 [153]"(NULL)(NULL)(NULL)val 2,valinblendeffekt (0-26)
2360 print"[208][207][203][197] 3,[193]usblendeffekt (0-26)
2370 [153]"(NULL)(NULL)(NULL)val 4,chr$eschwindigkeit (0-15)
2380 print"[208][207][203][197] 5,[198]arbe (groesser 15:[207]riginalfarbe
2390 [153]" 0-15:ascarbe von 0-15)
2400 print"[208][207][203][197] 6,[211]ound [198][216] [193][206](=1) oder [193][213][211] (=0)
2410 [141] 9900
2500 [153]"str$as valin- und atnusblenden wird jeweils
2510 print"durch ein [211][217][211] 34580 ausgeloest,
2520 [153]"bzw. in atnssembler mit mid$(NULL)(NULL) $8714
2530 print"([208]arameter-[213]ebergabe in [193]ssembler
2540 [153]" entsprechend peekatn(NULL)right$len)
2550 gosub 9900
2600 print"[213]nd jetzt noch einige [197]ffektdemos,
2610 [153]"mit verschiedenen valffekten,
2620 print"[199]eschwindigkeiten, [198]arben und mit [211]ound!
2630 [153]"(NULL)iel (NULL)pass beim (NULL)uschauen und valinbauen
2640 print"in eigene [208]rogramme !!!
2645 [141] 9900
2650 [153]"(NULL)(NULL)lenleft$ valright$(NULL) left$right$(NULL)(NULL)valright$(NULL) str$atn(NULL)(NULL):
2660 print"[194]ei [194]enutzung von [198].[195]. 2 darf [201]hr
2670 [153]"peekatn(NULL)right$lenprogramm maximal 53 blocks gross
2680 print"sein.
2690 [153]"atnchtung atnssemblerprogrammierer:
2700 print"[198].[195]. 2 sowie die [194]itmap belegen das
2710 [153]"(NULL)atn(NULL) von $4000 bis $9fff !!!
2720 gosub 9900
2730 return
5000 rem einige effekte als demo zeigen:
5010 poke 2,22 :rem effekt 22 einblend.
5020 poke 3,18 :rem effekt 18 ausblend.
5030 poke 4,15 :rem speed 15 (langsam)
5040 poke 5,13 :rem farbe 13 (hellgruen)
5050 poke 6,1 :rem sound fx an
5100 sys 34580 :rem aufruf (einblend.)
5150 gosub 9200:rem warteschleife
5200 poke 4,0 :rem speed 0 (schnell)
5210 poke 5,6 :rem farbe 6 (blau)
5300 sys 34580 :rem aufruf (ausblend.)
5350 gosub 9200
5400 rem
5410 poke 2,7 :rem effekt 7 einblend.
5420 poke 3,20 :rem effekt 20 ausblend.
5430 poke 4,5 :rem speed 5
5440 poke 5,7 :rem gelb
5460 poke 6,1 :rem sound fx an
5470 sys 34580 :rem aufruf (einblend.)
5480 gosub 9200:rem warteschleife
5490 poke 4,4 :rem speed 4
5500 poke 5,6 :rem blau
5510 sys 34580 :rem aufruf (ausblend.)
5520 gosub 9200
5999 return
8999 :
9000 rem alle effekte (0-26) werden
9010 rem nacheinander aufgerufen
9015 :
9020 for ef=0 to 26
9030 poke 4,1 :rem speed 1.
9040 poke 5,255 :rem originalfarbe.
9050 poke 6,0 :rem sound aus.
9060 poke 2,ef :rem einblendeffekt=
9070 poke 3,ef :rem =ausblendeffekt.
9080 :
9090 sys 34580 :rem effekt aufrufen.
9100 gosub 9200 :rem warteschleife.
9110 sys 34580 :rem effekt aufrufen.
9115 print "[196]ies war [197]ffekt [206]r.";ef
9120 gosub 9200 :rem warteschleife.
9125 gosub 9200
9127 print"[147]"
9130 next ef
9140 return
9199 :
9200 rem warteschleife (zwischen den
9210 rem effekten ):
9220 :
9230 for w=0 to500:next
9240 return
9300 rem alle effekte (0-26) werden
9310 rem nacheinander aufgerufen
9320 rem diesmal mit sound an !!!
9330 for ef=0 to 26
9340 poke 4,3 :rem speed 3.
9350 poke 5,14 :rem hellblau.
9360 poke 6,1 :rem sound an.
9370 poke 2,ef :rem einblendeffekt=
9380 poke 3,ef :rem =ausblendeffekt.
9390 :
9400 sys 34580 :rem effekt aufrufen.
9410 gosub 9200 :rem warteschleife.
9412 poke 4,0 :rem speed 0.
9415 poke 5,6 :rem normalblau.
9420 sys 34580 :rem effekt aufrufen.
9430 print "[196]ies war [197]ffekt [206]r.";ef;" mit [211]ound [198][216]"
9440 gosub 9200 :rem warteschleife.
9460 next ef
9470 return
9500 rem ende des demos (text)
9510 print"[144][147][212]ja, das war's fuer heute ...
9520 [153]"(NULL)enn (NULL)ie sich jetzt einmal die
9530 print"genaue [193]nwendung von [198].[195]. 2
9540 [153]"ansehen wollen, brauchen (NULL)ie nur
9550 print"[204][201][211][212] eingeben. [196]ieses [196]emoprogramm
9560 [153]"ist selbstverstaendlich nicht
9570 print"list-geschuetzt.
9580 [153]"(len)opyright 1994 by (NULL)ascha (NULL)eichert.
9590 return
9900 rem auf tastendruck warten:
9910 print"[194]itte eine [212]aste druecken !!!"
9940 get t$ : if t$ = "" then 9940
9950 return